home *** CD-ROM | disk | FTP | other *** search
/ Erect Magazine 15 / Erect Magazine 15.iso / mac / Menu.DIR / 00045.ls < prev    next >
Encoding:
Text File  |  1996-07-11  |  640 b   |  29 lines
  1. on exitFrame
  2.   global visible_g
  3.   if visible_g = 0 then
  4.     repeat with n = 11 to 30
  5.       set visible_g to 0
  6.       if rollOver(n) then
  7.         set the visible of sprite n to 1
  8.         set visible_g to n
  9.         updateStage()
  10.         exit repeat
  11.       end if
  12.     end repeat
  13.   else
  14.     if rollOver(visible_g) = 0 then
  15.       set the visible of sprite visible_g to 0
  16.       repeat with n = 11 to 30
  17.         set visible_g to 0
  18.         if rollOver(n) then
  19.           set the visible of sprite n to 1
  20.           set visible_g to n
  21.           updateStage()
  22.           exit repeat
  23.         end if
  24.       end repeat
  25.     end if
  26.   end if
  27.   go(the frame)
  28. end
  29.